Top 10k strings from Me and my Micro (1984)(National Extension College Trust).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /
Back to the directory listing
16 ***********************
12 Initialise
7 ;"Press SPACE to play again"
7 ##### SUBROUTINES #####
7 This version by SYSTEM
7 National Extension College.
6 Instructions
6 ######### END #########
5 Distributed by
3 b$(choice)+1
3 Shuffle cards
3 Main program loop
3 ;" "
3 Fred Harris.
3 Fred Harris 1984.
2 skyscraper
2 shots=shots-1
2 rescued her
2 end of game
2 data for graphics
2 choose game option
2 choice>no*2
2 b$(choice)=" "
2 Shuffle word
2 Setup graphics
2 Setup big numbers
2 Set up screen
2 Set up game
2 Player 2 input
2 Player 1 input
2 ;shots;" "
2 ;"SHOTS:40"
2 ;"**********"
2 ;"################################";
2 ;"################################"
2 Distributed by
1 ymax=level+1
1 yd=(i$="6")-(i$="7"):
1 xmax=level+2
1 xd=(i$="8")-(i$="5"):
1 x=choice-1
1 x$=n$+" WON !"
1 x$=m$+" WON !"
1 x$="You did it in "+
1 x$="IT WAS A DRAW!"
1 work out each digit of time
1 w$(t)=" "
1 undraw laserbolt
1 tries=tries+1
1 toddlers can't use
1 three blind mice....
1 set up grid
1 set up cards
1 set up UDG's
1 set clock to zero
1 score=score+bonus
1 score=score+50
1 score=score+1
1 score2>score1
1 score2=score2+1
1 score1>score2
1 score1=score2
1 score1=score1+1
1 score1+score2=no
1 rub out picture
1 reveal card
1 reserve enough room for alternate character set (even in 16k Spectrums)
1 rand2=rand
1 print scene
1 print numbers
1 print kong
1 print hole
1 print grid
1 print graphics generated
1 print girl
1 print first duck
1 print each line of all 4 digits
1 print double height word
1 print correct duck
1 print card numbers
1 print a double height character
1 position for bag
1 pick up bag
1 pick random success tune
1 p$="YOU MADE "+
1 p$="Player 2 guess letter by letter"
1 p$="Player 1. Please input your word"
1 p$(i),c(i)
1 p now points to start of character definition
1 owy odrruW
1 only 1 shot per pass
1 now graphic characters a,b,c,d are kong characters
1 no=xmax*ymax/2
1 n4=((time-
1 moving right 2
1 moving right 1
1 moving left 2
1 moving left 1
1 moved to next level
1 move plane
1 move on to next level
1 monsters teeth
1 monsters eyes
1 make moves
1 make hole and ladder
1 main program loop
1 level=level+1
1 l$=l$+j$(m+1
1 l$=l$+j$(a)
1 kongspeed=kongspeed-2
1 kongspeed=10
1 kong graphics (accessed in line 6050)
1 j$=j$+w$(n)
1 j$=j$+a$(n)
1 hole may be anywhere around box except in corner
1 he gets faster
1 have another go
1 graphics for man
1 errors=errors+1
1 errors+" ERROR"+("S"
1 end of maze
1 draw monsters
1 draw laserbolt
1 draw floors
1 draw concentric boxes
1 destroy building
1 data for three blind mice....
1 data for big numbers
1 data for Polly....
1 data for Jack Horner....
1 data for 4 ducks (1 for each direction)
1 count=kongspeed:
1 count=count+1
1 count<kongspeed
1 corners of square
1 colour=-colour:
1 colour;p$(
1 climbing 2
1 climbing 1
1 climb ladder
1 choose two numbers
1 choose correct message
1 choice=choice1
1 choice1=choice:
1 choice1+" ")(
1 choice+" ")(
1 centralise message
1 building=1
1 building=0
1 bonus=bonus-100
1 bonus=2700
1 bomb already dropping
1 back to normal UDG set
1 b$=b$+a$(r)
1 b$="112233"
1 b$(choice1)=" "
1 b$(choice1)
1 b$(choice)=" ":
1 b$(choice)
1 attempts=attempts+1
1 attempts=0
1 attempts+" goes.":
1 a$="123456789"
1 a$="00112233445566778899"
1 a$(v)=a$(w)
1 a$(v)="0":
1 a$(n)=b$(r):
1 You did it in 4 goes.
1 YOU MADE 0 ERRORS!A
1 Which number pressed
1 Wait for keypress
1 The pictures
1 TWISTER
1 Switch to alternate character set
1 Switch back to normal character set
1 Success routine
1 Store graphics in alternate character set
1 Set up top and bottom characters in graphic characters a and b
1 Set up grid
1 Set up graphics characters
1 Set up graphics
1 Set up UDG's
1 SPECIAL FEATURE - square maze and big numbers to print time
1 Repeat until done
1 Random bleeps
1 QUACMAN
1 Put numbers in boxes
1 PELMANISM
1 PAIRS
1 Next number
1 Move spaceship
1 Move right
1 Make hole and ladder
1 Make first hole
1 Main movement loop
1 MONSTER
1 KONGO
1 Jack Horner....
1 If they match play tune
1 If not,rub out
1 F"" TO FIRE";
1 Draw a picture
1 Define position functions
1 Created with Ramsoft MakeTZX
1 BOMBER |
1 ANAGRAMS
1 ;n$;"'s turn."
1 ;m$;"'s turn."
1 ;bonus;" "
1 ;"press a key when ready-GOOD LUCK"
1 ;"is to flatten the enemy"
1 ;"control. Your only hope"
1 ;"city below you."
1 ;"all the monsters!"
1 ;"Your plane is out of"
1 ;"You ran out of time!":
1 ;"You got it in ";tries;
1 ;"Who is to go first? ";
1 ;"What is your second choice? ";choice
1 ;"What is your first choice? ";choice
1 ;"Well done,you destroyed";
1 ;"Well done!";
1 ;"WELL DONE!";
1 ;"TWISTER":
1 ;"TIME TAKEN";
1 ;"SECONDS";
1 ;"SCORE=";score
1 ;"Press SPACE to play"
1 ;"PRESS ANY KEY WHEN YOU'RE READY"
1 ;"PRESS ""F"" TO FIRE."
1 ;"PRESS ""
1 ;"ONLY 40 SHOTS AND";
1 ;"ONLY 1 SHOT PER PASS"
1 ;"MONSTERZAP"
1 ;"In this game you will be given 9 digits in a random order and you have to rearrange them in sequence."
1 ;"Hard Luck,you ran out of shots"
1 ;"GAME OVER!"
1 ;"Enter level (1-3) ";level
1 ;"BONUS=";bonus;
1 ;"And who is to go next? ";
1 ;"A SAFE LANDING"
1 ;"................................"
1 ;"* BOMBER *"
1 ;" Press SPACE to play again "
1 ;" TIME UP! "
1 ;" ":
1 33445566778899X
1 2 players? ";n
1 -level-(level=3
1 ,i;" \ /";
1 ,i);c$;n$(n3+1
1 ,i);" ";n$(n4+1
1 ,i);" ";n$(n2+1
1 ***SPECIAL FEATURE - double height characters
1 ***SPECIAL FEATURE - big numbers using an alternate character set.
1 ***SPECIAL FEATURE - animated graphics for man.
1 * MONSTERZAP *
1 * QUACMAN *
1 * Pelmanism *
1 * ANAGRAMS *
1 * TWISTER *
1 * BOMBER *
1 * KONGO *
1 (yp+(xp>27
1 (y+yd,x+xd):
1 (time-n1*10
1 ((choice-1
1 'end' means end of maze reached
1 ''"eg."'" 947862351"''" twist 3 becomes"''" 749862351"
1 '"To do this you have to choose how many digits you want to twist from the left."
1 ######## END ##########
1 "Twist how many? ";m
1 "ENTER" function.
1 ";x+y*xmax+1
1 Fred Harris 1984. This version by SYSTEM Distributed by National Extension College.
1 Fred Harris 1984.
1 PAIRS
1